home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 March / 1986-03.d64 / key to joy (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.8 KB  |  55 lines
  1. 10 print"[147]":fori=1to168:reada:x=x+a:nexti
  2. 20 ifx<>23067thenprint"[147]typing error in data lines":stop
  3. 30 restore:tt$=chr$(142)+chr$(8)+"[147] keyboard to joystick ":printtt$
  4. 40 fori=828to856:reada:pokei,a:next
  5. 50 data120,169,49,141,20,3,169,234,141,21,3,88,96
  6. 60 data165,1,72,41,254,133,1,32
  7. 70 data27,191,104,133,1,76,126,234
  8. 80 fori=758to767:reada:pokei,a:next
  9. 90 data198,1,32,27,191,230,1,76,126,234
  10. 100 print"(if plan a doesn't work, try plan b)[145][145]"
  11. 110 print"plan a or b  a[157][157][157]";
  12. 120 inputp$:i=758:ifp$="a"theni=841
  13. 130 poke835,i/256:poke830,i-peek(835)*256
  14. 140 fori=0to73:pokei+48923,peek(i+59953):next
  15. 150 fori=48997to49125:reada:pokei,a:next
  16. 160 data169,255,133,203,141,245,191,169,129
  17. 170 data133,245,169,235,133,246,162,0,142,141
  18. 180 data2,142,2,220,160,1,169,16,32,186,191
  19. 190 data232,74,144,249,136,16,244,140
  20. 200 data2,220,173,245,191,201,16,240,35,165
  21. 210 data203,162,3,157,230,191,189,230,191
  22. 220 data201,255,208,6,202,16,246,76
  23. 230 data135,234,133,203,162,0,189,231
  24. 240 data191,157,230,191,232,224,3,144
  25. 250 data245,76,221,234,72,57
  26. 260 data0,220,208,15,189,246,191,201
  27. 270 data65,144,10,41,63,13,141,2
  28. 280 data141,141,2,104,96,197,203,144
  29. 290 data7,133,203,104,141,245,191,96,72,165,203
  30. 300 data201,255,104,176,241,144,233
  31. 310 fori=49126to49141:pokei,255:next:fora=0to4:reada$(a):next
  32. 320 dataup,down,left,right,fire
  33. 330 forf=1to7:readf$(f):next
  34. 340 datashift,logo,shift+logo,ctrl,shift+ctrl,logo+ctrl,shift+logo+ctrl
  35. 350 poke808,239:printtt$:fori=0to1:print"joystick port";i+1
  36. 360 fora=0to4:print"press key for ";a$(a);"? ";
  37. 370 k=peek(197):f=peek(653):ifqthenifk<64orfthenq=0:goto400
  38. 380 ifk=64andf=0thenq=1
  39. 390 goto370
  40. 400 ifk=64thenk=k+f:a$=f$(f):poke198,0
  41. 410 poke49142+i*5+4-a,k
  42. 420 getg$:ifg$>""thena$=g$:goto420
  43. 430 ifa$=" "thena$="space"
  44. 440 ifa$=chr$(13)thena$="return"
  45. 450 poke216,1:printa$:nexta:print:nexti:poke198,0
  46. 460 print"maximum break length? 3[157]";:i=3
  47. 470 geta$:ifa$=chr$(13)thenprint:print:goto500
  48. 480 ifa$<"0"ora$>"9"then470
  49. 490 i=val(a$):printa$"[157]";:goto470
  50. 500 poke808,237:poke49047,i:poke49076,i
  51. 510 print"are your choices satisfactory? (y/n)"
  52. 520 geta$:ifa$="n"then350
  53. 530 ifa$="y"thensys828:printchr$(9);:new
  54. 540 goto520
  55.